home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / key beeper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  39 lines
  1. 0 gosub60100:clr
  2. 100 rem keybeeper - pablo trincavelli
  3. 110 poke54275,8:poke54277,36:poke54278,9:poke254,65
  4. 120 forj=0to54:readk:poke50000+j,k:cs=cs+k:next
  5. 150 data120,169,098,141,020,003,169,195
  6. 160 data141,021,003,088,169,015,141,024
  7. 170 data212,096,165,197,164,254,136,201
  8. 180 data064,240,022,162,128,201,001,240
  9. 190 data012,162,064,201,008,144,006,201
  10. 200 data051,240,002,162,016,142,001,212
  11. 210 data200,140,004,212,076,049,234
  12. 300 sys50000:print"[147]               keybeeper"
  13. 310 print"   keybeeper is now active. pressing"
  14. 320 print"certain keys produces a beep."
  15. 330 print"press [space] to exit to basic; [return]";
  16. 340 print"to return to loadstar...":poke198,.
  17. 350 geta$:ifa$<>" "anda$<>chr$(13)then350
  18. 360 poke198,.:ifa$=" "thenend
  19. 370 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  20. 380 ifer<>63thenend
  21. 390 sys65418:load"hello connect",8
  22. 60100 poke53280,7:poke53281,1
  23. 60110 printchr$(142)"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  24. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  25. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]";
  26. 60140 fora=217to242:pokea,peek(a)or128:next
  27. 60150 print"[149]          loadstar presents:"
  28. 60160 print"                               "
  29. 60170 print"              keybeeper        [155] "
  30. 60180 print"                               [155] "
  31. 60190 print"         by pablo trincavelli  [155] "
  32. 60200 print"                               [155] "
  33. 60210 print"           (c)opyright 1987    [155] "
  34. 60220 print"                               [155] "
  35. 60230 print"                                "
  36. 60240 print"        [149]press space to continue.":poke198,.
  37. 60250 geta$:ifa$<>" "then60250
  38. 60260 return
  39.